home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / networking / misc / lpr1p0b.lha / lpqu < prev    next >
Encoding:
Text File  |  1994-11-11  |  1.6 KB  |  68 lines

  1. /*******************************************************************************************************************
  2. * lpq hostname printername
  3. *
  4. * 3) display queue (short)
  5. *    display que
  6. *    syntax: \3printer [users ...] [jobs ...]\n
  7. *            read from tcp
  8. * 4) display queue (long)
  9. *    display que
  10. *    syntax: \3printer [users ...] [jobs ...]\n
  11. *            read from tcp
  12. *
  13. * users is string
  14. * jobs ar integers
  15. *
  16. *******************************************************************************************************************/
  17.  
  18. /************************/
  19. /**CHANGE          HERE**/
  20. /************************/
  21. username = 'utzinger'
  22. /************************/
  23.  
  24. options failat 10
  25.  
  26. signal on halt
  27. signal on ioerr
  28. signal on break_c
  29.  
  30. if arg() < 1 | arg(1) = '?' then call usage 
  31.  
  32. parse arg Hostname PrI Options
  33.  
  34. /* parse var Options file Options */
  35.  
  36. say 'Statistics of printer ' || PrI ' on ' || Hostname  ':'
  37.  
  38. /* Open printer tcp connection  and file to send */
  39.  
  40. If ~Open(pr, 'TCP:' || Hostname || '/printer', 'W') Then Do; Say '*** Service not present'; Exit 10; End
  41.  
  42. /* Init remote printer daemon to accept files */
  43.  
  44. writeln(pr,d2c(3) || PrI || ' ' || username)
  45. /* chr=readch(pr,1) */
  46. /*  if chr ~= d2c(0) then Do; Say '*** Unknown remote printer: ' || c2b(chr);    Exit 10; End */
  47. thisline = readln(pr)
  48. say thisline
  49. do until eof(pr)
  50.  thisline = readln(pr)
  51.  say thisline
  52. end
  53. call close pr
  54. exit 0
  55.  
  56. /* ----------------------------------------------------------------------- */
  57. /* Error Handling */
  58. halt:
  59. oerr:
  60. reak_c:
  61. exit 10
  62.  
  63. /* ----------------------------------------------------------------------- */
  64. usage:
  65.     say "Usage: lpu hostname printername"
  66.     say
  67.     exit 0
  68.